home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / !BILL / BCK / MRG (.txt)
Commodore BASIC  |  2009-10-10  |  517b  |  20 lines
  1. 85 GOSUB12010:OV=8:GOTO97
  2. 87 GOSUB12300:OV=10:VS=0:GOTO95
  3. 12300 PRINTC2$"[194]ACKING UP BILLING FILE..."
  4. 12310 GOSUB18500:CLOSE8:IFERTHENA$="[150][194]ILLING FILE ERROR!":GOTO8004
  5. 12320 GOSUB460:F$="[186]BILL.BCKUP":GOSUB5000
  6. 12350 A=0:RN=2
  7. 12360 II=1:GOSUB18500:IFERTHEN505
  8. 12370 GOSUB910:INPUT#8,J
  9. 12380 GOSUB945:A$(A)=A$
  10. 12400 IFA=>MLTHENGOSUB12440:GOTO12470
  11. 12410 A=A+1
  12. 12420 RN=RN+1:IFRN<=JTHEN12380
  13. 12430 A=A-1:A$="":SYSC(0):GOSUB12440:GOTO2780
  14. 12440 GOSUB505:GOSUB460:OPEN8,DV,8,DR$+"[186]BILL.BCKUP,S,W":GOSUB510
  15. 12450 IFER=63THENCLOSE8:OPEN8,DV,8,DR$+"[186]BILL.BCKUP,A":GOSUB510
  16. 12455 IFERTHENCLOSE8:GOTO2780
  17. 12460 FORI=0TOA:PRINT#8,A$(I):A$(I)="":NEXT:A=0:GOTO505
  18. 12470 GOSUB18500:IFERTHEN505
  19. 12480 GOTO12380
  20.